library(academictwitteR)

bk_tweets <- get_all_tweets(
  query = "@BurgerKingUK",
  start_tweets = "2021-03-06T00:00:00Z",
  end_tweets = "2021-03-13T00:00:00Z",
  n = 10000000
)

library(academictwitteR)

bk_tweets <- get_all_tweets(
  query = "@BurgerKingUK",
  start_tweets = "2021-03-06T00:00:00Z",
  end_tweets = "2021-03-13T00:00:00Z",
  n = 10000000
)

for (i in unique_authors) {
  past_tweets[[i]] <- get_all_tweets(
    users = unique_authors$username[start:end],
    start_tweets = "2021-03-01T00:00:01.000Z",
    end_tweets = "2021-03-08T00:00:01.000Z",
    n = 1000000
  )
}